home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_101_Globals < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.5 KB  |  89 lines

  1. /* %filename% */
  2. /* Created %date% %time% by AppMaker */
  3.  
  4. %If lang = MPW%
  5. #include <Types.h>
  6. #include <Quickdraw.h>
  7. #include <Controls.h>
  8. #include <Dialogs.h>
  9. #include <Events.h>
  10. #include <Lists.h>
  11. #include <Menus.h>
  12. #include <TextEdit.h>
  13.  
  14. %end if%
  15. #include "%unitname%.h"
  16.  
  17. #define nil        0L
  18.  
  19. /*Standard vars:*/
  20. Boolean            quittingTime;                             
  21. EventRecord        curEvent;                          
  22. WindowPtr        curWindow;
  23. WinInfoPtr        cur;
  24. Boolean            inBackground;
  25.  
  26. WinInfoRec        noCur;
  27. %If lang = MPW%
  28.  
  29. #pragma segment %unitname% 
  30. %end if%
  31.  
  32. /*----------*/
  33. void InitGlobals ()
  34. {
  35.     curWindow = nil;
  36.     noCur.text = nil;
  37.     noCur.vScroll = nil;
  38.     noCur.hScroll = nil;
  39.     noCur.fileNum = 0;
  40.     noCur.volNum = 0;
  41.     noCur.dirty = false;
  42.     noCur.windowKind = noWindow;
  43.     cur = &noCur;
  44. } /*InitGlobals*/
  45.  
  46. /*----------*/
  47. void SetInfo (window)
  48. WindowPtr        window;
  49. {
  50.     WinInfoPtr        infoPtr;
  51.  
  52.     if (window != curWindow) {
  53.         curWindow = window;
  54.         if (curWindow != nil) {
  55.             infoPtr = (WinInfoPtr) GetWRefCon (curWindow);
  56.             cur = infoPtr;
  57.         } else {
  58.             cur = &noCur;
  59.         } /*if*/
  60.     } /*if*/
  61. } /*SetInfo*/
  62.  
  63. /*----------*/
  64. void SetNewInfo (window)
  65. WindowPtr        window;
  66. {
  67.     WinInfoPtr        infoPtr;
  68.  
  69.     infoPtr = (WinInfoPtr) NewPtr (sizeof (WinInfoRec));
  70.     SetWRefCon (window, (long) infoPtr);
  71.     SetInfo (window);
  72. } /*SetNewInfo*/
  73.  
  74. /*----------*/
  75. void DiscardInfo (window)
  76. WindowPtr        window;
  77. {
  78.     WinInfoPtr        infoPtr;
  79.  
  80.     if (window == curWindow) {
  81.         SetInfo (nil);
  82.     }
  83.     infoPtr = (WinInfoPtr) GetWRefCon (window);
  84.     DisposPtr ((Ptr) infoPtr);
  85.     HideWindow (window);
  86.     DisposeWindow (window);
  87. } /*DiscardInfo*/
  88.  
  89. /* %unitname% */